home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / serien / purity / nr.51 / wbswatsch / wbswatsch2.p < prev    next >
Text File  |  1995-08-27  |  1KB  |  57 lines
  1. PROGRAM wbswatsch2;
  2.  
  3. { Done on 02.03.1995 by Røgersøft for Purity the Pascal FD-Serie
  4.   on the C= Amiga. Thanks To Björn !                             }
  5.    
  6.  
  7. USES intuition,exec;
  8. {$incl 'dos.lib','dos/datetime.h','intuition/intuitionbase.h'}
  9.  
  10. CONST taskname='WBSwatsch2';
  11.      
  12.  VAR 
  13.   scr1:p_screen;
  14.   task:p_task;
  15.   dt:DateTime;
  16.   ds:Datestamp;
  17.   x:p_DateStamp;
  18.   s1,s2,s3: STRING[Len_DatString];
  19.   dummy:LONG;
  20.   buff:STRING[180];
  21.   buff1:STRING[80];  
  22.   ib:^_intuitionbase;
  23.  
  24. BEGIN
  25.  dosbase:=OpenLibrary('dos.library',37);
  26.  IF (findtask(taskname)=NIL) THEN
  27.  BEGIN
  28.   ib:=intuitionbase;
  29.   task:=findtask(NIL);                    { eigenen Task suchen }
  30.   task^.tc_node.ln_name:=taskname;        { task umbenennen     }
  31.  REPEAT
  32.   x:=DOSDateStamp(^ds);
  33.   dt:=DateTime(ds,FORMAT_CDN,0,^s1,^s2,^s3);
  34.   dummy:=datetostr(^dt);
  35.   IF dummy=1 THEN
  36.   BEGIN
  37.    buff1:=' '+s1+' '+s2+' '+s3;
  38.    scr1:=ib^.activescreen;
  39.    buff:=scr1^.title;
  40.    if (pos(':',buff)=(length(buff)-5)) THEN
  41.      delete(buff,length(buff)-(length(buff1)-1),length(buff1));
  42.    buff:=buff+buff1
  43.    setwindowtitles(ib^.activewindow,str(-1),buff);  { ok, ein wenig radikal!}
  44.    delay(50); 
  45.   END;
  46.  UNTIL FALSE; { kleine endlosschleife }
  47.  END
  48.  ELSE 
  49.  BEGIN
  50.   forbid;
  51.   Remtask(findtask(taskname)); { wbswatschtask entfernen }
  52.   permit;
  53.   ib:=intuitionbase;
  54.   setwindowtitles(ib^.activewindow,str(-1),'Workbench Screen');
  55.  END;
  56. END.
  57.